home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 20
/
Cream of the Crop 20 (Terry Blount) (1996).iso
/
os2
/
fm2utl.zip
/
unarjer.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-03-30
|
830b
|
27 lines
/*
* Unarj to directory in which file resides (for WPS drag-and-drop)
* Must pass fully qualified name of arj file (d&d does)
*/
arg filename
if length(filename) < 2 then exit
call setlocal
pathname = filename
pathname = left(pathname,lastpos('\',pathname))
if substr(pathname,length(pathname) - 1,1) \= ':' then
do
pathname = left(pathname,length(pathname) - 1)
end
call directory pathname
say '['directory()'] unarj x 'filename
/*
* modify this line if unarj not on PATH or is named something
* besides unarj.exe, or to add or remove command line switches
*/
'unarj x 'filename
/* open the folder where the file was just unarjed */
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs
call SysSetObjectData directory(), "OPEN=DEFAULT"
call endlocal
/* Hector wuz here */